home *** CD-ROM | disk | FTP | other *** search
- *IF DEF,NEVER
- *-----------------------------------------------------------------------
- * /STATE/ contains the information concerning the actual
- * status of the program
- * NLINES no. of lines in line image buffer SIMA
- * NKEEPL buffered line number in READEC, or 0
- * NSTAMM total no. of statements in current routine
- * NFSTAT no. of FORTRAN statements in current routine
- * ISNAME pointer to start-1 of stmt. names in SNAMES
- * NSNAME no. of names found in statement
- * IRNAME pointer to start-1 of names/routine in SNAMES
- * NRNAME no. of names/routine
- * IGNAME pointer to start-1 of global names in SNAMES
- * NGNAME no. of global names
- * INDCNT current indentation level (reset at routine start)
- * INDFAC no. of ch./level to indent
- * KNTDO current DO loop level (for indentation)
- * KNTIF current IF...THEN level (for indentation)
- * IBLPAD in QUOTES option, string blank-padded to multiples
- * of IBLPAD (default = 1)
- * NRORST no. of currently selected OR-sets in LRORST
- * NSTANU no. of statement numbers in KSTANU, KSTARE
- * ICBPRT no. of c.b. variables printed at ACTION(24)
- * NCBNAM no. of c.b. names in NCBGRP, KCBGRP, SCBNAM
- * NEQNAM no. of equiv. groups in NEQGRP, KEQGRP
- * NCBVAR no. of names in SEQNAM
- * NCBGRP no. of common block variables per c.b.
- * KCBGRP pos.-1 of start of c.b. name list in SCBNAM
- * LCBNAM # of c.b. variables used in current routine
- * LCBVAR counts number of times a variable is referenced
- * NEQGRP no. of names in equiv. group
- * KEQGRP pos.-1 of start of equiv. group in SCBNAM
- * LRORST list of OR-sets valid for current routine
- * NAMTYP variable type, parallel to SNAMES
- * NSSTRT start of name I in SSTA
- * NSEND end of name I in SSTA
- * KSTANU statement numbers in routine (sorted)
- * KSTARE new statement numbers, corresponding to KSTANU
- * NLTYPE type of line I (0 comment, 1 start, 2 cont. of stmt. )
- * ICLASS(I,1) type of statement I
- * 0 = comment
- * 999 = no comment, not classified
- * class = ICURCL(1), common /CURSTA/
- * ICLASS(I,2) type of second part of statement I if logical IF
- * IMODIF 10*n2 + n1
- * n1 = 1 : statement has been filtered
- * n2 = 1 : statement has been modified
- * NFLINE start of statement I in SIMA
- * NLLINE end of statement I in SIMA
- *-----------------------------------------------------------------------
- *EI
-